home *** CD-ROM | disk | FTP | other *** search
/ Nordpool / nordpool mediagroup backgrounds vol 001.iso / scala / scripts / uhrzeit.scr < prev    next >
Text File  |  1995-10-26  |  1KB  |  49 lines
  1. V3.0
  2.  
  3. MOUSE on
  4. FKEYS on
  5. INTERACTIVE on
  6.  
  7. EVENT Ermitteln
  8. EXECUTE "Nordpool:SCALA/ScaRexx/Uhr.rexx" arexx wait background
  9. SET Tim DATE()
  10. SET Dat TIME(\"\n\"\)
  11. BLANK 640 512 4 lace hires 0
  12. TABS 100 200 300 400 500
  13. MARGINS on 32 607
  14. PALETTE 038 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  15. FONT helvetica.font 14 24
  16. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  17. ATTRIBUTES remap kerning
  18. STYLE 0 3 4 3 6 1 1 21 3 1 13 0 2 5 1 0 4 4 3
  19. TEXTWIPE dump speed 1
  20. TEXT 30 30 "In diesem Page wird zweimal die Uhrzeit ermittelt."
  21. END
  22.  
  23. EVENT Uhrzeit
  24. BLANK 640 512 4 lace hires 0
  25. TABS 100 200 300 400 500
  26. MARGINS on 32 607
  27. PALETTE 038 fff ccc aaa 888 666 444 000 c00 d60 fb0 080 58b 53c a2b f3b
  28. FONT helvetica.font 14 24
  29. COLOR 1 7 7 7 7 0 1 7 0 1 2 3 5 4 1
  30. ATTRIBUTES remap left kerning
  31. STYLE 0 3 4 3 6 1 1 21 3 1 13 0 2 5 1 0 4 4 3
  32. TEXTWIPE dump speed 1
  33. TEXT 32 17 "Diese Uhrzeit wurde von AREXX aus erzeugt:"
  34. FONT FranklinC.font 55 58
  35. ATTRIBUTES remap kerning
  36. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 2 5 1 0 4 4 3
  37. TEXT 32 52 "!ARX"
  38. FONT helvetica.font 14 24
  39. ATTRIBUTES left kerning
  40. STYLE 0 3 4 3 6 1 1 21 3 1 13 0 2 5 1 0 4 4 3
  41. TEXT 32 121 "Diese Uhrzeit wurde vom Script direkt ermittelt:"
  42. FONT FranklinC.font 55 58
  43. ATTRIBUTES remap kerning
  44. STYLE 0 3 4 3 6 1 1 50 7 2 13 0 2 5 1 0 4 4 3
  45. TEXT 33 154 "!Tim"
  46. TEXT 33 226 "!Dat"
  47. PAUSE 4
  48. END
  49.